home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-170 dbase 10 for windows
/
1.ima
/
SAMPLES.PAK
/
CONTACT.PRG
< prev
next >
Wrap
Text File
|
1993-07-26
|
2KB
|
74 lines
*******************************************************************************
* PROGRAM: Contact.prg
*
* WRITTEN BY: Borland Late Night Crew
*
* DATE: 5/93
*
* UPDATED: 7/93
*
* VERSION: Alpha α
*
* DESCRIPTION: This program relates three databases, and defines a window
* with objects from different databases that change to
* reflect changes to the record pointer in the parent database
* of the relations. A listbox is defined showing a company
* names, a radiobutton shows the type of company, and an
* editor object shows any notes that were made about the
* company. Two pushbuttons are also defined. The "Browse"
* pushbutton brings up a window with a browse object of the
* parent database, company. The "Graph" pushbutton brings
* up a graph based on summarized information about the currently
* highlighted company name.
*
* PARAMETERS: None
*
* CALLS: None
*
* USAGE: DO Contact
*
*******************************************************************************
* contact.prg
set talk off
set procedure to sampproc
clear
use company in select()
use summary in select() order compcode
use contact in select() order compcode
select company
set relation to compcode into contact, compcode into summary
define window Comp304 from 2, 2 to 20,70 ;
of application;
title "Contact";
sizeable;
onclose Contact_Clean() && Close all open files when the window is closed
define listbox Listbox1 of Comp304 from 2, 4 to 10,28 ;
prompt field Company->company
define radiobuttons Company->type of Comp304 at 11,12 ;
prompt "OEM" pick "O", ;
"ISV" pick "I", ;
"VAR" pick "V" ;
vertical
define editor Editor1 of Comp304 from 1,32 to 12,64 ;
memo Contact->notes
define pushbutton Pushsummar of Comp304 at 14,25 ;
prompt "Summary" pick "S"
define pushbutton Pushgraph of Comp304 at 14,nextcol();
prompt " Graph " pick "G"
* BUG -- problems closing a window after closing databases
*define pushbutton Pushcancel of Comp304 at 14,nextcol();
* prompt "Cancel " pick "C"
on selection window Comp304 do Selectcomp
open window Comp304
set focus to Comp304
****************************** End of Contact.prg *****************************